home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / devioustools21.dms / devioustools21.adf / utils / 004.lzx / Graph2DV3.20 / Graph2D-Install < prev    next >
Text File  |  1997-01-24  |  15KB  |  423 lines

  1. ;
  2. ;   Installation script for Graph2D
  3. ;   Copyright © 1994-95 Kai Nickel
  4. ;
  5. ; $VER: Graph2D-Install 3.20 (25.11.95)
  6. ;
  7.  
  8. (complete 0)
  9.  
  10. ;
  11. ; ***** Ask language
  12. ;
  13.  
  14.  
  15. (set lang
  16.   (askchoice (prompt "Wählen Sie ihre bevorzugte Sprache:\nSelect your preferred Language:")
  17.              (help "Wählen Sie hier Ihre bevorzugte Sprache für die Dokumentation und die weitere Installation.\n\n\nSelect your prefered language for the documentation and the further installation.")
  18.              (choices "deutsch" "english")
  19.              (default 0)
  20. ))
  21.  
  22.  
  23.  
  24. ;
  25. ; ***** Define strings
  26. ;
  27.  
  28. ( if (= lang 0)
  29.   (
  30.     (set wrongOS   "Es sieht so aus, als ob sie OS 1.3 oder kleiner benutzen. Graph2D läuft aber erst ab OS 2.0.\nSie sollten sich überlegen, OS 3.1 anzuschaffen!\n")
  31.     (set wrongMUI  "Ihr MUI-System scheint zu alt zu sein und muß upgedated werden. Graph2D benötigt mindestens MUI 2.3.\n Sie können Graph2D jetzt installieren aber es wird nicht laufen, bevor MUI upgedated wird.\n")
  32.     (set noMUI     "Sie scheinen kein MUI installiert zu haben.\nGraph2D benötigt aber MUI in der Version 2.3 oder höher. Sie können mit der Installation fortfahren, aber Graph2D wird nicht laufen, bevor MUI nicht installiert wurde.\n")
  33.     (set selPath   "Wählen Sie den Pfad, in dem das neue Verzeichnis 'Graph2D' erzeugt werden soll.")
  34.     (set selHelp   "\nEs werden etwa 360KB für die Installation benötigt.\nIm gewählten Pfad wird ein neues Verzeichnis namens 'Graph2D' erzeugt, in das Graph2D und die zugehörigen Dateien kopiert werden.\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n\n")
  35.     (set main      "Installieren des Hauptprogramms 'Graph2D'")
  36.     (set mainHelp  "Das Hauptprogramm von Graph2D. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n")
  37.     (set guide     "Installieren der Dokumentation 'Graph2D.guide'")
  38.     (set guidename "Docs/Deutsch/Graph2D.guide")
  39.     (set histoname "Docs/Deutsch/Graph2DHistory.guide")
  40.     (set guidehelp "'Graph2D.guide' ist Dokumentation und gleichzeitig Online-Hilfe für Graph2D.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm.")
  41.     (set reg       "Installieren des Registrierungsformulars")
  42.     (set regname   "Docs/Deutsch/Graph2D.RegForm")
  43.     (set reghelp   "Graph2D ist Shareware. Wer das Programm benutzt muß sich beim Autor registrieren lassen. Das geschieht am besten mit diesem Formular.\n")
  44.     (set fkts      "Installieren der Beispielfunktionen")
  45.     (set fktshelp  "Dem Graph2D-Paket liegen zwei Funktionslisten bei, die ein paar Beispielfunktionen enthalten, welche zur Demonstration von zwei- und dreidimensionaler Darstellung dienen sollen.\nAuch kann man anhand dieser Funktionen sofort die Syntax erkennen, in der Graph2D Funktionen geschrieben werden müssen.\n")
  46.     (set rex       "Installieren der ARexx-Skripts")
  47.     (set rexhelp   "Dem Graph2D-Paket liegen ein paar ARexx-Skripts bei, die den eingebauten ARexx-Port demonstrieren und insbesondere mit dem Programm MathScript kommunizieren können.\n")
  48.     (set graph     "Installieren der Beispiel-Grapheinstellungen")
  49.     (set graphhelp "Dem Graph2D-Paket liegen ein paar Beispiel-Grapheinstellungen bei.\n")
  50.     (set mwb       "Möchten Sie MagicWB-Icons anstatt den normalen Icons installiert haben?")
  51.     (set mwbhelp   "Für die installierten Graph2D-Files stehen Icons im MagicWB-Stil zur Verfügung.\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  52.     (set icons     "Kopieren der MagicWB-Icons.")
  53.     (set ende      "Graph2D sollte nun komplett installiert sein. Starten Sie einfach das Hauptprogramm 'Graph2D'.\nViel Spaß!")
  54.     (set gdir      "Erzeuge Verzeichnis für Graphen")
  55.     (set fdir      "Erzeuge Verzeichnis für Funktionen")
  56.     (set adir      "Erzeuge Verzeichnis für ARexx-Skripts")
  57.     (set deloldcat "Ein alter englischer Graph2D-Katalog wurde gefunden. Er wird nicht mehr benötigt.\nSoll ich den Katalog löschen?")
  58.     (set catdir    "Es muß ein Verzeichnis für den Katalog erzeugt werden.")
  59.     (set lib       "Installieren der garbagecollector.library")
  60.     (set libhelp   "Diese Library ist (frei kopierbarer) Teil des Amiga-Oberon-Systems der A+L AG. Graph2D wird ohne sie nicht funktoinieren.\nDie Library wird defaultmäßig nach Graph2D/Libs kopiert, sie wird aber natürlich auch im LIBS: Verzeichnis gefunden.")
  61.     (set movelib   "Die garbagecollector.library wurde in Ihrem LIBS: Verzeichnis gefunden, was für Graph2D nicht mehr nötig ist.\n\nSie können Sie später aus dem LIBS: Verzeichnis nach Graph2D/Libs schieben, wenn Ihnen das lieber ist.\n\nTun sie dies nur, wenn Sie wissen, daß kein anderes Programm diese Library braucht.")
  62.     (set libdir    "Erzeuge Verzeichnis für garbagecollector.library")
  63.     (set askcatlang "Welcher Sprachkatalog soll installiert werden?")
  64.     (set cathelp   "Installieren sie die Kataloge, wenn sie Graph2D in englischer oder italienischer Sprache benutzen wollen.\n\nDie deutsche Sprache ist eingebaut und benötigt keinen Katalog.")
  65.   )
  66.   (
  67.     (set wrongOS   "It looks like you are using OS 1.3 or lower. But Graph2D needs Kickstart 2.0 or higher! You should seriously consider to buy OS 3.1.\n")
  68.     (set wrongMUI  "Your MUI-System seems to be too old for Graph2D and needs to be updated. Graph2D needs at least MUI 2.3 to work.\nYou can install Graph2D now but it will not work before updating MUI.\n")
  69.     (set noMUI     "Seems like MUI is not installed!\nGraph2D needs MUI 2.3 or higher. You can continue the installation but keep in mind, that Graph2D will not work before you also installed MUI.\n")
  70.     (set selPath   "Choose the path where the new drawer 'Graph2D' should be created.")
  71.     (set selHelp   "\nAbout 360KB will be needed for the installation.\nIn the choosen path a new directory called 'Graph2D' will be created, in which Graph2D and the other files will be copied.\nYou also may create a new drawer via 'Make New Drawer' before.\n\n")
  72.     (set main      "Install the main program 'Graph2D'")
  73.     (set mainHelp  "The main program of Graph2D. The documentation later has to be in the same drawer.\n")
  74.     (set guide     "Install the documentation 'Graph2D.guide'")
  75.     (set guidename "Docs/English/Graph2D.guide")
  76.     (set histoname "Docs/English/Graph2DHistory.guide")
  77.     (set guidehelp "'Graph2D.guide' is the documentation and online-help for Graph2D.\nIt must be placed into the same drawer as the main program.\n")
  78.     (set reg       "Install the registration-sheet")
  79.     (set regname   "Docs/English/Graph2D.RegForm")
  80.     (set reghelp   "Graph2D is shareware. Everybody using this program has to register himself at the author. For that reason you may use this text.\n")
  81.     (set fkts      "Install examples of functions")
  82.     (set fktshelp  "The Graph2D-package contains to examples of functionlists which can be helpfull to understand the syntax of Graph2D functions.\n")
  83.     (set rex       "Install ARexx-scripts")
  84.     (set rexhelp   "The Graph2D-package contains some ARexx-scripts especially to communicate with the program 'MathScript'.\n")
  85.     (set graph     "Install examples of graph-settings")
  86.     (set graphhelp "The Graph2D-package contains some examples of graph-settings.\n")
  87.     (set mwb       "Do you want to install MagicWB-icons instead of the normal ones?")
  88.     (set mwbhelp   "For all installed Graph2D-files exist icons in ths MagicWB-style.\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench-enhancment by Martin Huttenloher.)")
  89.     (set icons     "Installing the MagicWB-icons.")
  90.     (set ende      "Graph2D should now be completely installed. Start it just by double-clicking the main-program 'Graph2D'.\nHave fun!\n")
  91.     (set gdir      "Create drawer for graphs")
  92.     (set fdir      "Create drawer for functions")
  93.     (set adir      "Create drawer for ARexx-scripts")
  94.     (set ecat      "Install the english Graph2D.catalog")
  95.     (set ecathelp  "This Graph2D.catalog contains all the english program-texts.\nIf you don't install it you have to use the build in german language... :-)\n")
  96.     (set deloldcat "An old english Graph2D-catalog has been found. You don't need it anymore.\nShall I delete the catalog?")
  97.     (set catdir    "Directories have to be created for the Graph2D.catalog.")
  98.     (set lib       "Install the garbagecollector.library")
  99.     (set libhelp   "This library is part of the 'Amiga-Oberon-System' of the A+L AG. Graph2D will not work without it.\n")
  100.     (set movelib   "The garbagecollector.library has been found in your LIBS: drawer. This isn't nescessary anymore for Graph2D.\nYou can move it after installation from LIBS: to Graph2D/Libs if you like this.\n(Do this only if you know that no other program needs this library)")
  101.     (set libdir    "Create drawer for garbagecollector.library")
  102.     (set askcatlang "Which language catalog shall be installed?")
  103.     (set cathelp   "Install the catalogs, if you want to run Graph2D in englisch or italiano.\n\n German language is internal and does not need a catalog.")
  104.   )
  105. )
  106.  
  107.  
  108.  
  109. ;
  110. ; ***** Check OS and MUI
  111. ;
  112.  
  113. (set OSVersion   (/ (getversion) 65536))
  114. (set WBVersion   (/ (getversion "version.library" (resident)) 65536))
  115. (if (< OSVersion 36)
  116.   (message wrongOS)
  117. )
  118.  
  119. (set MUIVersion  10)
  120. (if (exists ("Libs:muimaster.library"))
  121.   (set dummy 0)
  122.   (message noMUI)
  123. )
  124.  
  125. (complete 5)
  126.  
  127.  
  128.  
  129. ;
  130. ; ***** Get and Create Path
  131. ;
  132.  
  133. (set destination
  134.   (askdir (prompt  selPath)
  135.           (help    selHelp)
  136.           (default @default-dest)
  137.   )
  138. )
  139.  
  140. (set destination (tackon destination "Graph2D"))
  141.  
  142. (set @default-dest destination)
  143.  
  144. (makedir destination
  145.   (help @makedir-help)
  146.   (infos)
  147. )
  148.  
  149. (complete 10)
  150.  
  151.  
  152.  
  153. ;
  154. ; ***** Copy Main Program, Guide and RegForm
  155. ;
  156.  
  157. (copyfiles (prompt main)
  158.            (source "Graph2D")
  159.            (dest destination)
  160.            (confirm)
  161.            (infos)
  162.            (noposition)
  163.            (help mainHelp)
  164. )
  165.  
  166. (complete 40)
  167.  
  168. (copyfiles (prompt guide)
  169.            (source guidename)
  170.            (dest destination)
  171.            (confirm)
  172.            (infos)
  173.            (noposition)
  174.            (help guidehelp)
  175. )
  176.  
  177. (complete 50)
  178.  
  179. (copyfiles (prompt guide)
  180.            (source histoname)
  181.            (dest destination)
  182.            (confirm)
  183.            (infos)
  184.            (noposition)
  185.            (help guidehelp)
  186. )
  187. (complete 55)
  188.  
  189. (copyfiles (prompt reg)
  190.            (source regname)
  191.            (dest destination)
  192.            (confirm)
  193.            (infos)
  194.            (noposition)
  195.            (help reghelp)
  196. )
  197.  
  198. (complete 60)
  199.  
  200.  
  201.  
  202. ;
  203. ; ***** Copy Library
  204. ;
  205.  
  206. (makedir (tackon destination "Libs")
  207.          (help @makedir-help)
  208.          (confirm)
  209.          (infos)
  210.          (prompt libdir)
  211. )
  212.  
  213.  
  214. (if (exists ("Libs:garbagecollector.library"))
  215.   (
  216.     (message movelib)
  217.   )
  218.   (
  219.     (copylib (prompt lib)
  220.              (source "libs/garbagecollector.library")
  221.              (dest (tackon destination "Libs"))
  222.              (confirm)
  223.              (help libhelp)
  224.     )
  225.   )
  226. )
  227.  
  228.  
  229.  
  230. (complete 65)
  231.  
  232.  
  233.  
  234. ;
  235. ; ***** Copy Catalog
  236. ;
  237.  
  238. (set catlang
  239.   (askchoice (prompt askcatlang)
  240.              (choices "deutsch (intern)" "english" "italiano")
  241.              (help cathelp)
  242.              (default 0)
  243. ))
  244.  
  245.  
  246. ( if (> catlang 0) (
  247.  
  248.   (if (exists ("Locale:Catalogs/english/Graph2D.catalog"))
  249.     (delete ("Locale:Catalogs/english/Graph2D.catalog")
  250.             (prompt deloldcat)
  251.             (help @delete-help)
  252.             (confirm)
  253.     )
  254.   )
  255.  
  256.   (makedir (tackon destination "Catalogs")
  257.            (help @makedir-help)
  258.            (confirm)
  259.            (infos)
  260.            (prompt catdir)
  261.   )
  262.  
  263.   (if (= catlang 1) (
  264.     (makedir (tackon destination "Catalogs/english")
  265.              (help @makedir-help)
  266.              (confirm)
  267.              (infos)
  268.              (prompt catdir)
  269.     )
  270.     (copyfiles
  271.              (prompt ecat)
  272.              (source "Catalogs/english/Graph2D.catalog")
  273.              (dest (tackon destination "Catalogs/english"))
  274.              (confirm)
  275.              (help ecathelp)
  276.     )
  277.   ))
  278.  
  279.   (if (= catlang 2) (
  280.     (makedir (tackon destination "Catalogs/italiano")
  281.              (help @makedir-help)
  282.              (confirm)
  283.              (infos)
  284.              (prompt catdir)
  285.     )
  286.     (copyfiles
  287.              (prompt ecat)
  288.              (source "Catalogs/italiano/Graph2D.catalog")
  289.              (dest (tackon destination "Catalogs/italiano"))
  290.              (confirm)
  291.              (help ecathelp)
  292.     )
  293.   ))
  294.  
  295. ))
  296.  
  297.  
  298.  
  299.  
  300.  
  301. (complete 70)
  302.  
  303.  
  304.  
  305. ;
  306. ; ***** Copy Examples
  307. ;
  308.  
  309. (makedir (tackon destination "Functions")
  310.          (help @makedir-help)
  311.          (infos)
  312.          (prompt fdir)
  313.          (confirm)
  314. )
  315.  
  316. (copyfiles (prompt fkts)
  317.            (source "Functions/")
  318.            (dest (tackon destination "Functions"))
  319.            (confirm)
  320.            (infos)
  321.            (noposition)
  322.            (all)
  323.            (help fktshelp)
  324. )
  325.  
  326. (complete 80)
  327.  
  328. (makedir (tackon destination "Graphs")
  329.          (help @makedir-help)
  330.          (infos)
  331.          (prompt gdir)
  332.          (confirm)
  333. )
  334.  
  335. (copyfiles (prompt graph)
  336.            (source "Graphs/")
  337.            (dest (tackon destination "Graphs"))
  338.            (confirm)
  339.            (infos)
  340.            (noposition)
  341.            (all)
  342.            (help graphhelp)
  343. )
  344.  
  345. (complete 90)
  346.  
  347.  
  348. ;
  349. ; ***** Copy ARexx-Scripts
  350. ;
  351.  
  352. (makedir (tackon destination "Rexx")
  353.          (help @makedir-help)
  354.          (infos)
  355.          (prompt adir)
  356.          (confirm)
  357. )
  358.  
  359. (copyfiles (prompt rex)
  360.            (source "Rexx/")
  361.            (dest (tackon destination "Rexx"))
  362.            (confirm)
  363.            (infos)
  364.            (noposition)
  365.            (all)
  366.            (help rexhelp)
  367. )
  368.  
  369. (complete 95)
  370.  
  371.  
  372. ;
  373. ; ***** Copy MagicWB-Icons
  374. ;
  375.  
  376. (if
  377.   (askbool (help   mwbhelp)
  378.            (prompt mwb)
  379.   )
  380.   (
  381.     (copyfiles (prompt icons)
  382.                (source "MWBIcons/")
  383.                (dest destination)
  384.                (pattern "Graph2D#?")
  385.     )
  386.  
  387.     (copyfiles (prompt icons)
  388.                (source "MWBIcons/Functions.info")
  389.                (dest destination)
  390.     )
  391.  
  392.     (copyfiles (prompt icons)
  393.                (source "MWBIcons/Graphs.info")
  394.                (dest destination)
  395.     )
  396.  
  397.     (copyfiles (prompt icons)
  398.                (source "MWBIcons/Rexx.info")
  399.                (dest destination)
  400.     )
  401.  
  402.     (copyfiles (prompt icons)
  403.                (source "MWBIcons/Libs.info")
  404.                (dest destination)
  405.     )
  406.  
  407.     ( if (= lang 1)
  408.       (
  409.         (copyfiles (prompt icons)
  410.                    (source "MWBIcons/Catalogs.info")
  411.                    (dest destination)
  412.         )
  413.       )
  414.     )
  415.  
  416.     (run (cat "copy " "MWBIcons/Drawer.info \"" destination ".info\""))
  417.   )
  418. )
  419.  
  420. (complete 100)
  421.  
  422. (exit ende)
  423.